Need help to unhide design of a database

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Need help to unhide design of a database

Feedback Type: Question

Product Area: Notes Client

Technical Area: Security

Platform: Windows

Release: 8.5.3

Reproducible: Always

Hi All,

We have a notes database, whose design is hidden. So now no one is able to do design replace on it. Can anyone suggest, if there is any way to do this?

I read using HexEditor we can unhide the design. So I have downloaded and opened .nsf file with Hex Editor. However I don't see the number 000000BCD in the file to change it to 20 / 00. If anybody knows this, please give me the steps to do it.

Also I have tried the below code by creating button in mail, which is throwing me "Input Past End of File" error at line (18). Please provide me the correct, if anybody has it. Thanks in advance for your help.

Sub Click(Source As Button)
Close ' all open files
Dim fname$, fn, db As notesdatabase, template$
Const INDEX = &hbd ' byte position of the hide design flag in an NSF file.
Const MASK = &b11011111 ' bit mask to locate the hide design flag in thatbyte.

fname = Inputbox("enter filename: ", "UNHIDE DESIGN", "")
If Trim(fname) <> "" Then
' open the file as a Notes database to make sure it's a valid Notes database
Set db = New notesdatabase("", fname)
If db Is Nothing Then
Msgbox "Not a valid Notes database: " & fname
Elseif Not db.isopen Then
Msgbox "Cannot locate database: " & fname
Else
template = db.DESIGNTEMPLATENAME
Delete db ' remove this object from memory

fn = Freefile() ' grab an available file number
Open fname For Binary Access Read Write Lock Read Write As fn
Seek fn, INDEX
tex = Input(1, fn)
oldCode = Asc(tex)
Print "oldCode = " & Hex(oldCode)

newCode = (oldCode And MASK)
If oldCode = newCode Then
Msgbox "The database design doesn't appear to be hidden."
Else
Seek fn, INDEX
tex = Chr$(newCode)
Put #fn, INDEX, tex
Seek fn, INDEX
tex = Input(1, fn)
Msgbox "tex = " & Hex(Asc(tex))
End If
Close
End If
End If
End Sub

Feedback number WEBB9XYFXU created by ~Sanjay Opkroplop on 06/30/2015

Status: Open
Comments: